VERSION 5.00
Begin VB.UserControl EnterClientCode 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   4065
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7230
   ScaleHeight     =   4065
   ScaleWidth      =   7230
   Begin VCT.TouchKeyPad TouchKeyPad1 
      Height          =   3975
      Left            =   3720
      TabIndex        =   0
      Top             =   0
      Width           =   3495
      _ExtentX        =   6165
      _ExtentY        =   7011
   End
   Begin VB.Label NCC_Label 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Use the keypad to enter the client code assigned to this client during a previous visit"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   21.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3495
      Left            =   0
      TabIndex        =   1
      Top             =   360
      Width           =   3135
   End
End
Attribute VB_Name = "EnterClientCode"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Dim Loc_KeyPressed As String
Public Event KeyPressedEvent()

Private Sub TouchKeyPad1_NumPressed()
   Loc_KeyPressed = TouchKeyPad1.KeyNum
   RaiseEvent KeyPressedEvent
End Sub

Property Get KeyPressed() As String
   KeyPressed = Loc_KeyPressed
End Property

